library mylib;

uses
   Windows,Messages;

Function SumXY(x,y:integer):integer; export;stdcall;
begin
   result:=x+y;
end;

Function SubtractXY(x,y:integer):integer;  
                                                                         export;stdcall;
begin
   result:=x-y;
end;

procedure DoRevertStr(str:Pchar); export;stdcall;

var s1, s2, msg:string;
       i                   :integer;

begin
  s1:=str; s2:='';
  for i:=length(s1) downto 1 do
                   s2:= s2+s1[i];
  msg:='Origin text : '+s1+chr(13)+
             'After revert: '+s2;

  MessageBox(0,PChar(msg),
                            'Hello from delphi DLL',MB_OK);

end;

exports
   SumXY               index 1,
   SubtractXY     index 2,
   DoRevertStr   index 3;

begin
end.
